home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #056 (19xx)(APS Electronic).zip / Bavarian #056 (19xx)(APS Electronic).adf / moon.inp < prev    next >
Text File  |  1987-08-19  |  626b  |  45 lines
  1. /* moon.inp - draw a moon */
  2.  
  3. macro MoonTexture
  4.     wave
  5.     center 3 5 8
  6.     wavelength  10
  7.     amplitude   10
  8.     damping        1
  9.     propagate   0
  10.     wave
  11.     center 50 70 -100
  12.     wavelength  27
  13.     amplitude   8
  14.     damping        1
  15.     propagate   0
  16.     wave
  17.     center -10 -50 30
  18.     wavelength  70
  19.     amplitude   6
  20.     damping        1
  21.     propagate   0
  22.     fractal
  23.     recursion 2
  24.     scale .03 .01 .03
  25.     finaltexture 0
  26.     done MoonTexture
  27.  
  28. macro Moon
  29.     attribute MoonAtt
  30.     texture    60
  31.     fuzz 1
  32.     mirror .8
  33.     index 0
  34.     transparency 0 0 0
  35.     ambient .1 .1 .1
  36.     diffuse .65 .7 .75
  37.     object of MoonAtt
  38.     point 0 -1 0
  39.     point 1 -.5 0
  40.     point 1 .5 0
  41.     point 0 1 0
  42.     sides 8
  43.     done Moon
  44.  
  45.